home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / FILE.N < prev    next >
Text File  |  1995-11-08  |  505b  |  19 lines
  1. Define TestFile()
  2. /*
  3.     reads c:\autoexec.bat, prints to the screen, and
  4.     copies it to a file \tmp\junk
  5. */
  6. {
  7.     if (!(infile = FileOpen(`c:\autoexec.bat`, "read")))
  8.         Signal("Could not open input file");
  9.     if (!(outfile = FileOpen(`\tmp\junk`, "write")))
  10.         Signal("Could not open output file");
  11.     while (!FileLineGet(infile, &buff)) {
  12.         Print(buff, "\n");
  13.         FilePrint(outfile, buff, "\n");
  14.     }
  15.     FileClose(infile);
  16.     FileClose(outfile);
  17. }
  18. TestFile
  19.